Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ktgcst.cst/00062_Script_buttons scripts Roles

Text File | 1998-09-28 | 5KB | 164 lines

on ThreeStateplayersoff10
  set mybutton = the clickon-10
  set player = the clickon+10
  set one = getat(gbuttonState, player)
  if one = 0 then
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
  end if
  loadAudioMedia(player)
end


on resetplayersoff10
  set mybutton = the clickon+10
  repeat with y = 31 down to 25
    set thisone = getat(gbuttonState,y)
    if thisone > 0 and y <> mybutton then
      set player = y-20
      set e = the membernum of sprite y-1
      set f = the membernum of sprite player-1
      set the blend of sprite y = 0
      set the blend of sprite y-20 = 0
      set the membernum of sprite y = member e of castlib "internal"
      setat(gbuttonState,y,0)
      if the membernum of sprite player = 0 then exit
      set the membernum of sprite player = member f of castlib "internal"
      setat(gbuttonState,player,0)
      exit repeat
    end if
  end repeat
  updatestage
end

------------------------------------

on ThreeStateplayersoff16
  set mybutton = the clickon-16
  set player = the clickon+4
  set one = getat(gbuttonState, player)
  if one = 0 then
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
  end if
  loadAudioMedia(player)
end


on resetplayersoff16
  set mybutton = the clickon+4
  repeat with y = 31 down to 25
    set thisone = getat(gbuttonState,y)
    if thisone > 0 and y <> mybutton then
      set player = y-20
      set e = the membernum of sprite y-1
      set f = the membernum of sprite player-1
      set the blend of sprite y = 0
      set the blend of sprite y-20 = 0
      set the membernum of sprite y = member e of castlib "internal"
      set the membernum of sprite player = member f of castlib "internal"
      setat(gbuttonState,y,0)
      setat(gbuttonState,player,0)
      exit repeat
    end if
  end repeat
  updatestage
end


on ThreeStateplayersoff14
  set mybutton = the clickon-14
  set player = the clickon+6
  set one = getat(gbuttonState, player)
  if one = 0 then
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
  end if
  loadAudioMedia(player)
end


on resetplayersoff14
  set mybutton = the clickon+6
  repeat with y = 31 down to 25
    set thisone = getat(gbuttonState,y)
    if thisone > 0 and y <> mybutton then
      set player = y-20
      set e = the membernum of sprite y-1
      set f = the membernum of sprite player-1
      set the blend of sprite y = 0
      set the blend of sprite y-20 = 0
      set the membernum of sprite y = member e of castlib "internal"
      set the membernum of sprite player = member f of castlib "internal"
      setat(gbuttonState,y,0)
      setat(gbuttonState,player,0)
      exit repeat
    end if
  end repeat
  updatestage
end

global thingon

on ThreeStateplayersoffbt bt,bp

  resetplayersoffbt bt,bp

  set mybutton = the clickon+bt
  set player = the clickon+bp
  set one = getat(gbuttonState, player)

  if one = 0 then
    set thingon = []
    append thingon,the mousecast
    append thingon,the clickon
    set offsetsprite = the clickon + 20
    set offsetcast = the membernum of sprite offsetsprite
    append thingon,offsetcast
    append thingon,offsetsprite
    put thingon
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
    updatestage
  end if
loadAudioMedia(mybutton)
end

on resetplayersoffbt bt,bp

    set mybutton = the clickon+bt
    set player = the clickon+bp
    repeat with y = 31 down to 23
      set thisone = getat(gbuttonState,y)
      if thisone > 0 and y <> mybutton then
        set player = y-20
        set e = the membernum of sprite y-1
        set f = the membernum of sprite player-1
        set the blend of sprite y = 0
        set the blend of sprite y-20 = 0
        set the membernum of sprite y = member e of castlib "internal"
        set the membernum of sprite player = member f of castlib "internal"
        updatestage
        setat(gbuttonState,y,0)
        setat(gbuttonState,player,0)
        exit repeat
      end if
    end repeat
end